www.gusucode.com > (粗糙集数据分析工具箱) matlab源码程序 > matlab代做 修改 程序工具箱 (粗糙集数据分析工具箱) matla 中使用/rsda/core.m

    function y=core(c,d,x)
[xp,xq]=size(x); [cp,cq]=size(c); [dp,dq]=size(d);
y=[]; q=ind(d,x); pp=ind(c,x); [b,w]=pospq(pp,q);
for u=1:cq
    a{u}=setdiff(c,u); p{u}=ind(a{u},x); [k{u},kk{u}]=pospq(p{u},q);
  if k{u}~=b, y=cat(2,y,u); end
end